home *** CD-ROM | disk | FTP | other *** search
/ SGI Performance Co-Pilot 1.3 / SGI Performance Co-Pilot 1.3.iso / dist / dist6.4 / pcp.idb / usr / sbin / mpvis.z / mpvis
Text File  |  1997-04-03  |  8KB  |  356 lines
  1. #!/bin/sh
  2. # 
  3. #  Copyright (c) 1994 Silicon Graphics, Inc.
  4. #  ALL RIGHTS RESERVED.
  5. # 
  6. #  U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND
  7. #  Use, duplication or disclosure by the Government is subject to
  8. #  restrictions as set forth in FAR 52.227.19(c)(2) or subparagraph
  9. #  (c)(1)(ii) of the Rights in Technical Data and Computer Software clause
  10. #  at DFARS 252.227-7013 and/or similar or successor clauses in the FAR,
  11. #  or the DOD or NASA FAR Supplement.  Contractor/manufacturer is Silicon
  12. #  Graphics, Inc., 2011 N. Shoreline Blvd., Mountain View, CA 94039-7311.
  13. # 
  14. #  THIS SOFTWARE CONTAINS CONFIDENTIAL AND PROPRIETARY INFORMATION OF
  15. #  SILICON GRAPHICS, INC.  ANY DUPLICATION, MODIFICATION, DISTRIBUTION, OR
  16. #  DISCLOSURE IS STRICTLY PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN
  17. #  PERMISSION OF SILICON GRAPHICS, INC.
  18. # /
  19.  
  20. #
  21. # $Id: mpvis.sh,v 2.14 1997/03/21 08:51:15 kenmcd Exp $
  22. #
  23.  
  24. tmp=/tmp/$$
  25. trap "rm -f $tmp.*; exit" 0 1 2 3  15
  26. rm -f $tmp.*
  27.  
  28. gridspace=120
  29. cpuargs=
  30.  
  31. algorithm="k"
  32. force=false
  33. maxrowlen=16
  34. verbose=false
  35. showinst=false
  36. version="2"
  37.  
  38. . /usr/pcp/lib/pmview-args
  39.  
  40. _usage()
  41. {
  42.     echo >$tmp.msg 'Usage: mpvis [options] [cpuid...]
  43.  
  44. options:
  45.   -b              use row:column ratio of 1:8 (soft limit)
  46.   -i              show CPU numbers (version 2 only)
  47.   -r rowlen       maximum number of CPUs per row (soft limit) [default 16]
  48.   -R rowlen       force this number of CPUs per row
  49.   -v version      generate scene for different versions of pmview [default 2]
  50.   -V              verbose/diagnostic output  
  51.  
  52. pmview(1) options:'
  53.  
  54.     _pmview_usage >>$tmp.msg
  55.     echo >>$tmp.msg
  56.     echo 'Default title is: CPU Utilization for Host' >>$tmp.msg
  57.     _pmview_info -f $tmp.msg
  58. }
  59.  
  60. # generate one row of the scene
  61. #
  62. _do_row()
  63. {
  64. cat <<End-of-File >>$tmp.conf
  65.     _grid 0 $y show (
  66.     _labeledbar (
  67.         _metrics (
  68.                 irix.kernel.percpu.cpu.idle[$rowlist]        1000
  69.                 irix.kernel.percpu.cpu.wait.total[$rowlist]  1000
  70. End-of-File
  71. $have_intr && echo "                irix.kernel.percpu.cpu.intr[$rowlist]        1000" >>$tmp.conf
  72. cat <<End-of-File >>$tmp.conf
  73.                 irix.kernel.percpu.cpu.sys[$rowlist]         1000
  74.                 irix.kernel.percpu.cpu.user[$rowlist]        1000
  75.         )
  76. End-of-File
  77. if $have_intr
  78. then
  79.     echo '        _metriclabels ( "idle" "wait" "intr" "sys" "user" )' >>$tmp.conf
  80. else
  81.     echo '        _metriclabels ( "idle" "wait" "sys" "user" )' >>$tmp.conf
  82. fi
  83. $showinst && echo "        _instlabels away ( $labels )" >>$tmp.conf
  84. cat <<End-of-File >>$tmp.conf
  85.         _colorlist cpu
  86.     )
  87.     )
  88. End-of-File
  89. }
  90.  
  91. _pmview_args "$@"
  92.  
  93. if [ "X$otherArgs" != X ]
  94. then
  95.     while getopts "?biN:r:R:v:V" c $otherArgs    # TODO - delete N for MR
  96.     do
  97.     case $c
  98.     in
  99.         b)
  100.         algorithm="b"
  101.         ;;
  102.         i)
  103.         showinst=true
  104.         gridspace=60
  105.         ;;
  106.         r)
  107.         maxrowlen=$OPTARG
  108.         ;;
  109.         R)
  110.         maxrowlen=$OPTARG
  111.         force=true
  112.         ;;
  113.         v)
  114.         version=$OPTARG
  115.         if [ $version != "1" -a $version != "2" ]
  116.         then
  117.             _pmview_error "only versions 1 and 2 supported for -v"
  118.             # NOTREACHED
  119.         fi
  120.         ;;
  121.         V)
  122.         verbose=true
  123.         ;;
  124.         ?)
  125.         _usage
  126.         exit 1
  127.         ;;
  128.     esac
  129.     done
  130.     set -- $otherArgs
  131.     shift `expr $OPTIND - 1`
  132.  
  133.     [ $# -gt 0 ] && cpuargs=$@
  134. fi
  135.  
  136. # set host and the options variable (options to pminfo - see below)
  137. #
  138. if [ "X$arch" != X ]
  139. then
  140.     host=`pmdumplog -l $arch 2>/dev/null | awk '/^Performance/ {print $5}' | sed -e 's/,//g'`
  141.     [ "X$host" = X ] && host="unknown host"
  142.     host="$host (Archive $arch)"
  143.     options="$namespace -a $arch"
  144. elif [ "X$host" != X ]
  145. then
  146.     options="$namespace -h $host"
  147. else
  148.     host=`hostname`
  149.     options="$namespace"
  150. fi
  151.  
  152. [ -z "$titleArg" ] && titleArg="CPU Utilization for Host $host"
  153.  
  154. # irix.kernel.percpu.cpu.intr not always available
  155. #
  156. have_intr=true
  157. num_intr=`pmprobe $options irix.kernel.percpu.cpu.intr 2>/dev/null | cut -d' ' -f 2`
  158. [ "$num_intr" -lt 1 ] && have_intr=false
  159.  
  160. rm -f $tmp.conf
  161. if [ $version = "1" ]
  162. then
  163.     # pmview 1.0
  164.     #
  165.     cat <<End-of-File >$tmp.conf
  166. # pmview 1.0
  167. #
  168. # mpvis
  169. #
  170. End-of-File
  171.     if $have_intr
  172.     then
  173.     cat <<End-of-File >>$tmp.conf
  174. 5 0  0.0 0.0 0.8   1000.0    user    irix.kernel.percpu.cpu.user
  175. 4 0  0.8 0.0 0.0   1000.0    sys     irix.kernel.percpu.cpu.sys
  176. 3 0  0.8 0.8 0.0   1000.0    intr    irix.kernel.percpu.cpu.intr
  177. 2 0  0.0 0.8 0.8   1000.0    wait    irix.kernel.percpu.cpu.wait.total
  178. 1 0  0.0 0.8 0.0   1000.0    idle    irix.kernel.percpu.cpu.idle
  179. End-of-File
  180.     else
  181.     cat <<End-of-File >>$tmp.conf
  182. 4 0  0.0 0.0 0.8   1000.0    user    irix.kernel.percpu.cpu.user
  183. 3 0  0.8 0.0 0.0   1000.0    sys     irix.kernel.percpu.cpu.sys
  184. 2 0  0.0 0.8 0.8   1000.0    wait    irix.kernel.percpu.cpu.wait.total
  185. 1 0  0.0 0.8 0.0   1000.0    idle    irix.kernel.percpu.cpu.idle
  186. End-of-File
  187.     fi
  188.  
  189. else
  190.     # pmview 2.0
  191.     #
  192.  
  193.     # create the list of cpus to be displayed - get inventory
  194.     #
  195.     eval `pmprobe $options -I irix.kernel.percpu.cpu.user 2>$tmp.err \
  196.     | sed \
  197.     -e 's/"//g' \
  198.     -e 's/$/ /' \
  199.     -e "s/^[^ ]* /ncpu=/" \
  200.     -e 's/ / cpulist="/' \
  201.     -e 's/"$/""/' \
  202.     -e 's/ $/"/'`
  203.  
  204.     if [ -z "$cpulist" -o "$ncpu" -lt 1 ]
  205.     then
  206.     echo "Cannot get CPU inventory for host $host" >$tmp.msg
  207.     cat $tmp.err >>$tmp.msg
  208.     _pmview_error -f $tmp.msg
  209.     # NOTREACHED
  210.     fi
  211.  
  212.     echo "$cpulist" | tr ' ' '\012' >$tmp.cpu
  213.  
  214.     if [ -z "$cpuargs" ]
  215.     then
  216.     # sort list
  217.     #
  218.     if grep cpu: $tmp.cpu >/dev/null
  219.     then
  220.         # Origin series name style
  221.         cpulist=`sed -e 's/:/./' $tmp.cpu \
  222.              | sort -t. +1 -2n +2 -3n +3 -4 \
  223.              | sed -e 's/\./:/'`
  224.     else
  225.         # CPU names for older systems
  226.         cpulist=`sed -e 's/cpu/cpu./' $tmp.cpu \
  227.              | sort -t. +1 -2n \
  228.              | sed -e 's/\.//'`
  229.     fi
  230.     else
  231.     # restrict based on command line args
  232.     #
  233.     for cpu in $cpuargs
  234.     do
  235.         if grep "$cpu" $tmp.cpu >/dev/null
  236.         then
  237.         :
  238.         else
  239.         echo "CPU \"$cpu\" not in the CPU inventory ..." >$tmp.msg
  240.         fmt $tmp.cpu | sed -e 's/^/    /' >>$tmp.msg
  241.         _pmview_error -f $tmp.msg
  242.         # NOTREACHED
  243.         fi
  244.     done
  245.     cpulist="$cpuargs"
  246.     ncpu=`echo $cpulist | awk '{ print NF }'`
  247.     fi
  248.  
  249.     # shape the base geometry for the scene
  250.     #
  251.     if [ $ncpu -le $maxrowlen ]
  252.     then
  253.     nrows=1
  254.     ncols=$ncpu
  255.     elif $force
  256.     then
  257.     nrows=`echo $ncpu $maxrowlen | nawk ' \
  258.         { x = $1 / $2; y = $1 % $2; if (y > 0) ++x; printf "%d\n", x; }'`
  259.     ncols=$maxrowlen
  260.     else
  261.     case $algorithm in
  262.         a)    # this algorithm doesn't work at the moment
  263.         # (the exit condition is not robust enough)
  264.         nrows=1
  265.         ncols=1
  266.         bound=1
  267.         num=0
  268.         while [ $num -gt $ncols -o $num -lt $bound ]
  269.         do
  270.             nrows=`expr $nrows \* 2`
  271.             ncols=`expr $ncpu / $nrows`
  272.             bound=`expr $ncols / 2`
  273.             num=`expr $nrows \* 4`
  274.         done
  275.         ncols=`echo $ncpu $nrows | nawk ' { x = $1 / $2; y = $1 % $2; \
  276.                   if (y > 0) ++x; printf "%d\n", x }'`
  277.         ;;
  278.         b)
  279.         # use a ratio for rows:columns of 1:8
  280.         #
  281.         nrows=`echo $ncpu | nawk ' { x = sqrt ($1 / 8.0);
  282.                 y = int (x); if (y < x) ++y; print y }'`
  283.         ncols=`expr $ncpu + $nrows - 1`
  284.         ncols=`expr $ncols / $nrows`
  285.         ;;
  286.         k)
  287.         nrows=`expr $ncpu + $maxrowlen - 1`
  288.         nrows=`expr $nrows / $maxrowlen`
  289.         ncols=`expr $ncpu + $nrows - 1`
  290.         ncols=`expr $ncols / $nrows`
  291.     esac
  292.     fi
  293.  
  294.     cat <<End-of-File >$tmp.conf
  295. pmview Version 2.0
  296. #
  297. # mpvis
  298. #
  299. #_scale 1.05
  300. _gridSpace $gridspace
  301. _gridHeight 2
  302. End-of-File
  303.  
  304.     if $have_intr
  305.     then
  306.     echo "_colorlist cpu ( green2 cyan2 yellow2 red2 blue2 )" >>$tmp.conf
  307.     else
  308.     echo "_colorlist cpu ( green2 cyan2 red2 blue2 )" >>$tmp.conf
  309.     fi
  310.     echo "_grid 0 0 hide ( # outer grid" >>$tmp.conf
  311.  
  312.     # build rows from front-to-back of scene
  313.     # fill rows with CPUs from left-to-right
  314.     #
  315.     y=`expr $nrows \* 2 - 2`
  316.     col=0
  317.     rowlist=""
  318.     labels=""
  319.     for cpu in $cpulist
  320.     do
  321.     if [ $col -eq 0 ]
  322.     then
  323.         rowlist="$cpu"
  324.     else
  325.         rowlist="$rowlist,$cpu"
  326.     fi
  327.     $showinst && labels="$labels \"`echo $cpu | sed -e 's/cpu:*//'`\""
  328.     col=`expr $col + 1`
  329.     if [ $col -eq $ncols ]
  330.     then
  331.         _do_row
  332.         col=0
  333.         rowlist=""
  334.         labels=""
  335.         y=`expr $y - 2`
  336.     fi
  337.     done
  338.     [ $col -gt 0 ] && _do_row
  339.     echo ")" >>$tmp.conf
  340.  
  341.     if [ $nrows -eq 1 ]
  342.     then
  343.     # remove unnecessary _grid for a single row
  344.     #
  345.     sed -e '/^    _grid/d' -e '/^    )/d' <$tmp.conf >$tmp.tmp
  346.     mv $tmp.tmp $tmp.conf
  347.     fi
  348.  
  349. fi
  350.  
  351. $verbose && cat $tmp.conf
  352.  
  353. eval pmview <$tmp.conf $args -title "'$titleArg'" -xrm "'*iconName: mpvis'"
  354.  
  355. exit
  356.